'*************************************
'*            Grey Tiebot            *
'*                                   *
'*************************************

cond
 *.robage 0 =
start
 .tie inc
 32 .stifftie store
 314 rnd .aimdx store
stop

cond
 *.refxpos 0 >
 *.reftie *.myties !=
 *.nrg 16000 <
start
 *.refxpos *.refypos angle .setaim store
 .tie inc
 *.tiepres .tienum store
 -32 .tieval store
 -1 .tieloc store
stop

cond
 *.nrg 8000 >
 *.body 4000 >
start
 50 .repro store
 314 rnd .aimdx store
stop

cond
 *.nrg 16000 >
 *.numties 2 >
start
 *.tiepres .tienum store
 32 .tieval store
 -1 .tieloc store
stop

cond
 *.nrg 8000 <
 *.numties 0 >
start
 *.tiepres .tienum store
 -32 .tieval store
 -1 .tieloc store
stop

cond
 *.body 1000 <
 *.nrg 8000 >
start
 32 .strbody store
stop

cond
 *.waste 250 >
start
 628 .aimshoot store
 -4 .shoot store
 *.waste .shootval store
stop
